home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / SHP.PLP < prev    next >
Text File  |  1991-08-17  |  3KB  |  64 lines
  1. /* auto pilot program ｢NEM 2.04｣ 1991.4.01 By GOOSE(MAF00070) */
  2. /* Shp(ONEPROC);
  3. **   複数のテキストファイルをHPに書き込む｡
  4. **     ONEPROC:書き込むメモ番号列 ｢SHP=B:\HP.123,B:\MAIL\XXX.XXX,････,No,｣
  5. */
  6. /* %Shp { */
  7. /*  [ONEPROC] */
  8.  
  9.   %send1hp { [SENDDATA]
  10.     %temp @head(@read(SENDDATA,1,1),{\n});
  11.     %SENDHP @getchar(temp,1,@nochar(temp)-1);
  12.     var HPDATA[80];var HPNAME[8];var HPPASS[16];
  13.     HPDATA:=HP;HPNAME:={};HPPASS:={};
  14.     loop({%temp1 @head(HPDATA,{,});
  15.           case(temp1={No},
  16.             {Yes},{im({No})},
  17.             {No},{case(@tail(temp1,{:})=temp,
  18.               {No},{HPDATA:=@body(HPDATA,{,});im({Yes})},
  19.               {Yes},{HPNAME:=@head(temp1,{:});
  20.                      HPPASS:=@body(temp1,{:},{:});
  21.                      im({No})})})});
  22.     case(HPPASS={},
  23.       {Yes},{Flash;Flash;
  24.              display({HPの情報が設定されていません｡\n})},
  25.       {No},{%SENDTITLE @read(SENDDATA,2,1);
  26.             type({GO HP\n});
  27.             loop({wait(ABORTTIME,{Abort},
  28.                {\n＞},{im({No})},
  29.                {\n続き (改行で表示},{type({\n});im({Yes})},
  30.                {\nmore>},{type({\n});im({Yes})})
  31.             });
  32.             type({1\n});
  33.             wait(ABORTTIME,{Abort},{自分のHP)\n：},);
  34.             type(HPNAME|{\n});
  35.             case(UID<>HPNAME,
  36.               {Yes},{wait(ABORTTIME,{Abort},{パスワード\n：},);
  37.                      type(HPPASS|{\n})});
  38.             wait(ABORTTIME,{Abort},{\nHP>},);
  39.             type({WRITE\n});
  40.             wait(ABORTTIME,{Abort},{20文字以内)\n：},);
  41.             type(SENDTITLE);
  42.             wait(ABORTTIME,{Abort},{1:OK  2:NG) \n：},);
  43.             type({1\n});
  44.             wait(ABORTTIME,{Abort},{終了は行頭で/E)\n},);
  45.             %temp @read(SENDDATA,3);
  46.             %temp2 {DEL }|PLTPATH|{\}|{NEMSEND.WRK};
  47.             dispoff({Yes});command(temp2);dispoff({No});
  48.             write(PLTPATH|{\}|{NEMSEND.WRK},temp);send(PLTPATH|{\}|{NEMSEND.WRK});
  49.             dispoff({Yes});command(temp2);dispoff({No});
  50.             type({\n});type({/E\n});
  51.             wait({180},{Abort},{2:しない)\n：},);
  52.             type({2\n});
  53.             wait(ABORTTIME,{Abort},{2:しない)\n：},);
  54.             case(DEBUG={Yes},{No},{type({1\n})},{Yes},{type({2\n})});
  55.             wait(ABORTTIME,{Abort},{\nHP>},);})
  56.   };
  57.  
  58.   var ALLDATA[256];ALLDATA:=@body(ONEPROC,{SHP=});
  59.   loop({%temp @head(ALLDATA,{,});
  60.         case(temp={No},
  61.           {Yes},{im({No})},
  62.           {No},{ALLDATA:=@body(ALLDATA,{,});send1hp(temp);im({Yes})}
  63.         )});
  64. /* }; */